home *** CD-ROM | disk | FTP | other *** search
/ Bride Wars Press Kit / Bride Wars DPK.iso / pc / resources / functions / download.exe / download.dxr / 00004_Movie Scripts.ls < prev    next >
Encoding:
Text File  |  2007-02-26  |  605 b   |  27 lines
  1. global gbPC, gSavedList, gFirstSave, gFilePath, downloadPath
  2.  
  3. on prepareMovie
  4.   gSavedList = []
  5.   gbPC = the platform contains "win"
  6.   gFirstSave = 0
  7.   gFilePath = getPath(the moviePath)
  8. end
  9.  
  10. on getPath aString
  11.   importFileInto(member("path"), _movie.path & "path.txt")
  12.   downloadPath = member("path").text
  13.   if gbPC then
  14.     return _movie.path
  15.   else
  16.     macDrive = EMPTY
  17.     repeat with i = 1 to aString.char.count
  18.       macDrive = macDrive & aString.char[i]
  19.       if aString.char[i] = ":" then
  20.         exit repeat
  21.       end if
  22.     end repeat
  23.     macDrive = _movie.path
  24.     return macDrive
  25.   end if
  26. end
  27.